index

location='https://github.com/cqregan/PUBPOL_543_02/raw/main/'
file='Use_Of_Force.csv'
link=paste0(location,file)
link

## [1] "https://github.com/cqregan/PUBPOL_543_02/raw/main/Use_Of_Force.csv"

#getting the data TABLE from the file in the cloud:
df = read.csv(file=url(link))
df

df[['Occured_date_time']] <- as.Date(df[['Occured_date_time']], format = "%m/%d/%y")
df

library(ggplot2)

baseHY=ggplot(data=df,
            aes(x=Occured_date_time)) 
histHY=baseHY + geom_histogram(aes(fill=Incident_Type), 
                              color='black')
histHY

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

histHY + ggtitle("When did use of force incidences occur in Seattle?") 

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.